Module mFunctions

    Public Function OffsetRect(ByRef rect As Rectangle, ByRef x As Integer, ByRef y As Integer) As Rectangle

        Dim tmp As Rectangle = rect
        tmp.Offset(x, y)

        Return tmp

    End Function

    Public Function IsOverencumbered(stats As StatsSet, weightset As PlayerWeights) As Boolean

        If weightset.INT4_BAGWEIGHT > stats.INT2_MAX_WEIGHT Then
            Return True
        End If

        'TODO: detect overweight by hand and body weight too

        Return False

    End Function

End Module
